﻿Public Class ClassExtract7z
    Sub New(ByVal CheminZip As String, ByVal CheminExtract As String)
        Dim basePath = My.Application.Info.DirectoryPath
        Dim startInfo As New ProcessStartInfo
        startInfo.FileName = """" & basePath & "\7za.exe"""
        startInfo.Arguments = "x " & CheminZip & " -o" & CheminExtract
        startInfo.WindowStyle = ProcessWindowStyle.Hidden
        Process.Start(startInfo)
    End Sub
End Class
